Quản lý phần mềm bán vé xe VB
8.426 lượt xem;
- Settings.Designer.vb
- My Project /
- PhanMemBanVeXe_Full /
- project /
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:2.0.50727.4927
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict On
12 Option Explicit On
13
14
15 Namespace My
16
17 <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
19 Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20 Partial Friend NotInheritable Class MySettings
21 Inherits Global.System.Configuration.ApplicationSettingsBase
22
23 Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
24
25 #Region "My.Settings Auto-Save Functionality"
26 #If _MyType = "WindowsForms" Then
27 Private Shared addedHandler As Boolean
28
29 Private Shared addedHandlerLockObject As New Object
30
31 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32 Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33 If My.Application.SaveMySettingsOnExit Then
34 My.Settings.Save()
35 End If
36 End Sub
37 #End If
38 #End Region
39
40 Public Shared ReadOnly Property [Default]() As MySettings
41 Get
42
43 #If _MyType = "WindowsForms" Then
44 If Not addedHandler Then
45 SyncLock addedHandlerLockObject
46 If Not addedHandler Then
47 AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 addedHandler = True
49 End If
50 End SyncLock
51 End If
52 #End If
53 Return defaultInstance
54 End Get
55 End Property
56
57 <Global.System.Configuration.UserScopedSettingAttribute(), _
58 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
59 Global.System.Configuration.DefaultSettingValueAttribute("en-US")> _
60 Public Property CultureString() As String
61 Get
62 Return CType(Me("CultureString"), String)
63 End Get
64 Set(ByVal value As String)
65 Me("CultureString") = value
66 End Set
67 End Property
68 End Class
69 End Namespace
70
71 Namespace My
72 Partial Friend Class MyApplication
73 Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
74 My.Application.ChangeCulture(My.Settings.CultureString)
75 My.Application.ChangeUICulture(My.Settings.CultureString)
76 End Sub
77 End Class
78
79 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
80 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
81 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
82 Friend Module MySettingsProperty
83
84 <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
85 Friend ReadOnly Property Settings() As Global.PhanMemBanVeXe_Full.My.MySettings
86 Get
87 Return Global.PhanMemBanVeXe_Full.My.MySettings.Default
88 End Get
89 End Property
90 End Module
91 End Namespace
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:2.0.50727.4927
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict On
12 Option Explicit On
13
14
15 Namespace My
16
17 <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
19 Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20 Partial Friend NotInheritable Class MySettings
21 Inherits Global.System.Configuration.ApplicationSettingsBase
22
23 Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
24
25 #Region "My.Settings Auto-Save Functionality"
26 #If _MyType = "WindowsForms" Then
27 Private Shared addedHandler As Boolean
28
29 Private Shared addedHandlerLockObject As New Object
30
31 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32 Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33 If My.Application.SaveMySettingsOnExit Then
34 My.Settings.Save()
35 End If
36 End Sub
37 #End If
38 #End Region
39
40 Public Shared ReadOnly Property [Default]() As MySettings
41 Get
42
43 #If _MyType = "WindowsForms" Then
44 If Not addedHandler Then
45 SyncLock addedHandlerLockObject
46 If Not addedHandler Then
47 AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 addedHandler = True
49 End If
50 End SyncLock
51 End If
52 #End If
53 Return defaultInstance
54 End Get
55 End Property
56
57 <Global.System.Configuration.UserScopedSettingAttribute(), _
58 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
59 Global.System.Configuration.DefaultSettingValueAttribute("en-US")> _
60 Public Property CultureString() As String
61 Get
62 Return CType(Me("CultureString"), String)
63 End Get
64 Set(ByVal value As String)
65 Me("CultureString") = value
66 End Set
67 End Property
68 End Class
69 End Namespace
70
71 Namespace My
72 Partial Friend Class MyApplication
73 Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
74 My.Application.ChangeCulture(My.Settings.CultureString)
75 My.Application.ChangeUICulture(My.Settings.CultureString)
76 End Sub
77 End Class
78
79 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
80 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
81 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
82 Friend Module MySettingsProperty
83
84 <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
85 Friend ReadOnly Property Settings() As Global.PhanMemBanVeXe_Full.My.MySettings
86 Get
87 Return Global.PhanMemBanVeXe_Full.My.MySettings.Default
88 End Get
89 End Property
90 End Module
91 End Namespace
